INTERFACE
  double precision function ddot(n,dx,incx,dy,incy)
  double precision dx(*),dy(*)
  integer          incx,incy,n
  END
END INTERFACE

